perm filename SSDATA.SAI[PIC,HE] blob sn#428032 filedate 1979-03-05 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	entry  ssdata
C00003 ENDMK
CāŠ—;
entry  ssdata;
begin  "ssdata"

  comment  October 21, 1978;

  require  "define.sai"  source!file;
  require  "sseg.dcl"  source!file;

  integer  ssegno, output;
  external  string  picture;

  internal  simple  procedure  ssdata;
  begin
  integer  c;
    output := openfile("output","wc");
    cprint(output," ",picture,crlf);
    ssegno := nofssg;
    for  c := 1 step 1 until ssegno  do  ssegtofile(output);
    cfile(output);
    print(" sseg output ready.",crlf);
  end;

end  "ssdata"